(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     68428,       1872]
NotebookOptionsPosition[     62618,       1674]
NotebookOutlinePosition[     62988,       1690]
CellTagsIndexPosition[     62945,       1687]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"Off", "[", 
   RowBox[{"ClebschGordan", "::", "\"\<tri\>\""}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Off", "[", 
   RowBox[{"ClebschGordan", "::", "\"\<phy\>\""}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Off", "[", 
   RowBox[{"SixJSymbol", "::", "\"\<tri\>\""}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.456663504453125*^9, 3.45666350465625*^9}, 
   3.54004256367356*^9}],

Cell[CellGroupData[{

Cell["Physical Constants", "Subtitle",
 FontColor->RGBColor[0, 0.356863, 0]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
   "oFile", "=", 
    "\"\<C:\\\\Users\\\\Administrator\\\\Dropbox\\\\RbDFS\\\\calculation\\\\\
Rb87_5D32_new_offset_A.txt\>\""}], ";"}], " "}]], "Input",
 CellChangeTimes->{{3.5420806592531247`*^9, 3.5420806779887247`*^9}, {
  3.5424218531412745`*^9, 3.542421864497675*^9}, {3.542466131851074*^9, 
  3.542466132100674*^9}, {3.542466752751874*^9, 3.5424667528610744`*^9}, {
  3.542467353111474*^9, 3.542467353298674*^9}, {3.5424679234536743`*^9, 
  3.5424679237812743`*^9}, {3.542469216587308*^9, 3.5424692167745094`*^9}, {
  3.5424766258504906`*^9, 3.5424766293761134`*^9}, {3.542500487342514*^9, 
  3.5425004896358905`*^9}, {3.542508948061562*^9, 3.5425089491691904`*^9}, {
  3.5425131661443715`*^9, 3.5425131662847743`*^9}}],

Cell[CellGroupData[{

Cell["Speed of Light", "Subsubtitle"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"c", "=", "29979245800"}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"cm", "/", "sec"}], "*)"}]}]], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Planck's Constant", "Subsubtitle"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"hBar", "=", 
    RowBox[{"1.054", " ", 
     SuperscriptBox["10", 
      RowBox[{"-", "27"}]]}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"ergs", " ", "sec"}], "*)"}]}]], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Boltzmann Constant", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"kB", "=", 
    RowBox[{"1.380658", " ", 
     SuperscriptBox["10", 
      RowBox[{"-", "16"}]]}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"erg", "/", "K"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.4566596001875*^9, 3.456659625953125*^9}, {
  3.45665968075*^9, 3.456659686359375*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Atomic Parameters", "Subtitle",
 FontColor->RGBColor[0, 0.356863, 0]],

Cell["General Parameters", "Subtitle",
 CellChangeTimes->{{3.45666146840625*^9, 3.45666147296875*^9}}],

Cell["Nuclear Spin", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"i", "=", 
   RowBox[{"N", "[", 
    FractionBox["3", "2"], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.4730885615*^9, 3.473088561953125*^9}, 3.53632801824225*^9, 
   3.5386065281276674`*^9, {3.542513177548191*^9, 3.5425131799194365`*^9}}],

Cell[CellGroupData[{

Cell["Transit Linewidth", "Subsubtitle",
 CellChangeTimes->{{3.45666389359375*^9, 3.456663897328125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Gamma]T", "=", 
   FractionBox["1", 
    RowBox[{"26.2", " ", 
     SuperscriptBox["10", 
      RowBox[{"-", "9"}]]}]]}], ";"}]], "Input",
 CellChangeTimes->{{3.456663726421875*^9, 3.4566637388125*^9}, {
   3.45666380203125*^9, 3.456663813921875*^9}, 3.4566922269375*^9, 
   3.5366835360235*^9, 3.538523997111776*^9}],

Cell[CellGroupData[{

Cell[BoxData["\[Gamma]T"], "Input",
 CellChangeTimes->{{3.5370977448424997`*^9, 3.5370977478424997`*^9}}],

Cell[BoxData["3.816793893129771`*^7"], "Output",
 CellChangeTimes->{3.5404093208822365`*^9, 3.540431286541026*^9, 
  3.5404426703079433`*^9, 3.5425132883883224`*^9, 3.542513333301586*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Polarization", "Subsubtitle",
 CellChangeTimes->{{3.456663909203125*^9, 3.456663910671875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"q1", "=", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.456663912765625*^9, 3.456663917453125*^9}, 
   3.456663957921875*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"q2", "=", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{3.4566639629375*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ground State Parameters", "Subtitle",
 CellChangeTimes->{{3.456659852765625*^9, 3.456659860875*^9}}],

Cell["Ground State S", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
   3.45665970596875*^9, 3.456659711984375*^9}, {3.45665974584375*^9, 
   3.456659752203125*^9}, 3.45665980753125*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SGnd", "=", 
   RowBox[{"N", "[", 
    FractionBox["1", "2"], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.45665975521875*^9, 3.456659757859375*^9}, 3.4566598095625*^9, {
   3.5425131864715624`*^9, 3.54251319049644*^9}}],

Cell[CellGroupData[{

Cell["Ground State J", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.45665974584375*^9, 
  3.456659752203125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"jGnd", "=", 
   RowBox[{"N", "[", 
    FractionBox["1", "2"], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
  3.45665975521875*^9, 3.456659757859375*^9}, {3.5425131924152765`*^9, 
  3.5425131945057173`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ground State F Values", "Subsubtitle",
 CellChangeTimes->{{3.45666290321875*^9, 3.456662908015625*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fMinGnd", "=", 
   RowBox[{"Abs", "[", 
    RowBox[{"jGnd", "-", "i"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fMaxGnd", "=", 
   RowBox[{"jGnd", "+", "i"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.456662861609375*^9, 3.456662890515625*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ground State Hyperfine A", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
  3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}, {
  3.45666013296875*^9, 3.456660152140625*^9}, {3.456660398109375*^9, 
  3.45666040421875*^9}, {3.456660756828125*^9, 3.45666075759375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"aGnd", "=", 
    RowBox[{"SetPrecision", "[", 
     RowBox[{"3417341305.452145", ",", "20"}], "]"}]}], " ", ";"}], 
  RowBox[{"(*", 
   RowBox[{"From", " ", "Steck", " ", "review"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
  3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
  3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
  3.456660078296875*^9, 3.456660092390625*^9}, {3.456660306609375*^9, 
  3.45666036596875*^9}, {3.456660407359375*^9, 3.45666043703125*^9}, {
  3.4566605581875*^9, 3.4566605719375*^9}, {3.456660680015625*^9, 
  3.456660705609375*^9}, {3.45666076115625*^9, 3.4566607615625*^9}, {
  3.47308857578125*^9, 3.473088584546875*^9}, {3.47309640846875*^9, 
  3.473096424140625*^9}, {3.536335670945375*^9, 3.53633567542975*^9}, {
  3.5399858315742908`*^9, 3.5399858502631235`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ground State Hyperfine B", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
   3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
   3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}, {
   3.45666013296875*^9, 3.456660152140625*^9}, {3.456660398109375*^9, 
   3.45666040421875*^9}, 3.4566605775*^9, {3.45666076390625*^9, 
   3.45666076546875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"bGnd", "=", "0"}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
  3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
  3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
  3.456660078296875*^9, 3.456660092390625*^9}, {3.456660306609375*^9, 
  3.45666036596875*^9}, {3.456660407359375*^9, 3.45666043703125*^9}, {
  3.4566605581875*^9, 3.456660602203125*^9}, {3.45666063840625*^9, 
  3.45666063971875*^9}, {3.45666076803125*^9, 3.456660773828125*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Intermediate State Parameters", "Subtitle",
 CellChangeTimes->{{3.456659852765625*^9, 3.456659887765625*^9}}],

Cell["Intermediate State S", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.45665974584375*^9, 
  3.456659752203125*^9}, {3.45665980753125*^9, 3.45665981840625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SInt", "=", 
   RowBox[{"N", "[", 
    FractionBox["1", "2"], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
  3.45665975521875*^9, 3.456659757859375*^9}, {3.4566598095625*^9, 
  3.45665982178125*^9}, {3.5425131990610046`*^9, 3.5425132012294464`*^9}}],

Cell[CellGroupData[{

Cell["Intermediate State J", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
  3.45665976646875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"jInt", "=", 
   RowBox[{"N", "[", 
    FractionBox["3", "2"], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.45665976928125*^9, 3.45665977578125*^9}, {3.473088588953125*^9, 
   3.47308858946875*^9}, 3.536333582476625*^9, {3.542513204380707*^9, 
   3.542513206361945*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Intermediate State F Values", "Subsubtitle",
 CellChangeTimes->{{3.45666290321875*^9, 3.456662923203125*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fMinInt", "=", 
   RowBox[{"Abs", "[", 
    RowBox[{"jInt", "-", "i"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fMaxInt", "=", 
   RowBox[{"jInt", "+", "i"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.456662861609375*^9, 3.456662890515625*^9}, {
  3.456662927125*^9, 3.456662936640625*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Intermediate State Linewidth", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
  3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Gamma]Int", "=", 
    FractionBox["1", 
     RowBox[{"26.2", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "9"}]]}]]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Seconds", " ", "From", " ", "Budker"}], ",", "Kimball", ",", " ",
     "DeMille"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
  3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
  3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
  3.456660078296875*^9, 3.456660092390625*^9}, {3.53668310449225*^9, 
  3.536683106007875*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Intermediate State Center of Gravity Energy", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
  3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}, {
  3.45666013296875*^9, 3.456660152140625*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Nu]Int", "=", 
   RowBox[{"SetPrecision", "[", 
    RowBox[{"384230484468500", ",", "20"}], "]"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Hz", " ", "from", " ", "Steck"}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
   3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
   3.456660078296875*^9, 3.456660092390625*^9}, {3.456660306609375*^9, 
   3.45666036596875*^9}, {3.473088596515625*^9, 3.473088616875*^9}, {
   3.47308883840625*^9, 3.473088843484375*^9}, {3.473096433640625*^9, 
   3.473096439859375*^9}, {3.53633478836725*^9, 3.53633479311725*^9}, 
   3.536607319211*^9, {3.536607447226625*^9, 3.536607498007875*^9}, {
   3.53666646042975*^9, 3.5366664651485*^9}, {3.537893167558856*^9, 
   3.5378931893520937`*^9}, 3.5378943549667425`*^9, 3.5378974743522215`*^9, {
   3.5378985672711487`*^9, 3.53789856825395*^9}, {3.5378998431661897`*^9, 
   3.537899869374236*^9}, 3.5379017571978636`*^9, 3.538606282516619*^9, {
   3.5399857601885653`*^9, 3.5399857692989817`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Intermediate State Hyperfine A", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
  3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}, {
  3.45666013296875*^9, 3.456660152140625*^9}, {3.456660398109375*^9, 
  3.45666040421875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"aInt", "=", 
    RowBox[{"SetPrecision", "[", 
     RowBox[{"84718500", ",", "20"}], "]"}]}], " ", ";"}], 
  RowBox[{"(*", 
   RowBox[{"Hz", " ", "From", " ", "Steck"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
  3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
  3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
  3.456660078296875*^9, 3.456660092390625*^9}, {3.456660306609375*^9, 
  3.45666036596875*^9}, {3.456660407359375*^9, 3.45666043703125*^9}, {
  3.4566605581875*^9, 3.4566605719375*^9}, {3.473088627078125*^9, 
  3.4730886284375*^9}, {3.473096443796875*^9, 3.473096448328125*^9}, {
  3.5363357313985*^9, 3.536335734726625*^9}, {3.536607079039125*^9, 
  3.53660709955475*^9}, {3.536666472757875*^9, 3.536666476257875*^9}, {
  3.536683146882875*^9, 3.5366831523985*^9}, {3.5372022874831247`*^9, 
  3.5372022919049997`*^9}, {3.539985799703435*^9, 3.5399858030418406`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Intermediate State Hyperfine B", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
   3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
   3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}, {
   3.45666013296875*^9, 3.456660152140625*^9}, {3.456660398109375*^9, 
   3.45666040421875*^9}, 3.4566605775*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"bInt", "=", 
    RowBox[{"SetPrecision", "[", 
     RowBox[{"12496500", ",", "20"}], "]"}]}], " ", ";"}], 
  RowBox[{"(*", 
   RowBox[{"Hz", " ", "From", " ", "Steck"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
   3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
   3.456660078296875*^9, 3.456660092390625*^9}, {3.456660306609375*^9, 
   3.45666036596875*^9}, {3.456660407359375*^9, 3.45666043703125*^9}, {
   3.4566605581875*^9, 3.456660602203125*^9}, {3.45666063840625*^9, 
   3.45666063971875*^9}, 3.473088631296875*^9, {3.473096452546875*^9, 
   3.473096456171875*^9}, {3.536335742211*^9, 3.536335745961*^9}, {
   3.536607112711*^9, 3.536607116664125*^9}, 3.53666648311725*^9, {
   3.5366831642735*^9, 3.53668317030475*^9}, {3.5372023036862497`*^9, 
   3.5372023085924997`*^9}, {3.539985808704651*^9, 3.5399858160678635`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Final State Parameters", "Subtitle",
 CellChangeTimes->{{3.456659852765625*^9, 3.456659887765625*^9}, {
  3.456660101109375*^9, 3.4566601018125*^9}}],

Cell["Final State S", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.45665974584375*^9, 
  3.456659752203125*^9}, {3.45665980753125*^9, 3.456659829375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SFin", "=", 
   RowBox[{"N", "[", 
    FractionBox["1", "2"], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.45665975521875*^9, 3.456659757859375*^9}, {3.4566598095625*^9, 
   3.45665983434375*^9}, {3.536335431601625*^9, 3.536335431726625*^9}, 
   3.53634248861725*^9, {3.54251321336648*^9, 3.542513215254116*^9}}],

Cell[CellGroupData[{

Cell["Final State J", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659783546875*^9, 
  3.456659787671875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"jFin", "=", 
   RowBox[{"N", "[", 
    FractionBox["3", "2"], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.4566597779375*^9, 3.456659780921875*^9}, {3.456661545015625*^9, 
   3.456661545171875*^9}, 3.4569295484212503`*^9, {3.47308863565625*^9, 
   3.473088640640625*^9}, {3.536335439086*^9, 3.536335439226625*^9}, 
   3.5385845502476044`*^9, {3.54251321806217*^9, 3.542513221525437*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Final State F Values", "Subsubtitle",
 CellChangeTimes->{{3.45666290321875*^9, 3.45666294725*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fMinFin", "=", 
   RowBox[{"Abs", "[", 
    RowBox[{"jFin", "-", "i"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fMaxFin", "=", 
   RowBox[{"jFin", "+", "i"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.456662861609375*^9, 3.456662890515625*^9}, {
  3.456662927125*^9, 3.456662957578125*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Final State Linewidth", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
  3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}, {
  3.456659988796875*^9, 3.45665998953125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Gamma]Fin", "=", 
    FractionBox["1", 
     RowBox[{"241.", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "9"}]]}]]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"Seconds", " ", "From", " ", "Heavens"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
  3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
  3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
  3.4566600681875*^9, 3.45666007421875*^9}, {3.4566616303125*^9, 
  3.456661631765625*^9}, {3.4569295617493753`*^9, 3.4569295620150003`*^9}, {
  3.45951917796875*^9, 3.45951917865625*^9}, {3.536683236757875*^9, 
  3.536683244726625*^9}, {3.538582219701305*^9, 3.5385822378273416`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Energies, Matrix Elements and Transition Probablities", "Subtitle",
 CellChangeTimes->{{3.456681533796875*^9, 3.456681554234375*^9}}],

Cell["Formula for Calculating Energies with HFS", "Subsubtitle",
 CellChangeTimes->{{3.45666156509375*^9, 3.45666157378125*^9}, {
  3.456662570765625*^9, 3.4566625805625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Kappa]", "[", 
    RowBox[{"f_", ",", "j_"}], "]"}], "=", 
   RowBox[{
    RowBox[{"f", 
     RowBox[{"(", 
      RowBox[{"f", "+", "1"}], ")"}]}], "-", 
    RowBox[{"j", 
     RowBox[{"(", 
      RowBox[{"j", "+", "1"}], ")"}]}], "-", 
    RowBox[{"i", 
     RowBox[{"(", 
      RowBox[{"i", "+", "1"}], ")"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.45666169846875*^9, 3.456661713*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Delta]E", "[", 
    RowBox[{"a_", ",", "b_", ",", "f_", ",", "j_"}], "]"}], ":=", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"j", "\[NotEqual]", " ", 
       FractionBox["1", "2"]}], "&&", 
      RowBox[{"i", "\[NotEqual]", 
       FractionBox["1", "2"]}]}], ",", 
     RowBox[{
      RowBox[{
       FractionBox["1", "2"], "a", " ", 
       RowBox[{"\[Kappa]", "[", 
        RowBox[{"f", ",", "j"}], "]"}]}], "+", 
      RowBox[{"b", " ", 
       FractionBox[
        RowBox[{
         RowBox[{
          FractionBox["3", "4"], 
          SuperscriptBox[
           RowBox[{"\[Kappa]", "[", 
            RowBox[{"f", ",", "j"}], "]"}], "2"]}], "+", 
         RowBox[{
          FractionBox["3", "4"], 
          RowBox[{"\[Kappa]", "[", 
           RowBox[{"f", ",", "j"}], "]"}]}], "-", 
         RowBox[{"i", 
          RowBox[{"(", 
           RowBox[{"i", "+", "1"}], ")"}], "j", 
          RowBox[{"(", 
           RowBox[{"j", "+", "1"}], ")"}]}]}], 
        RowBox[{"2", " ", "i", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", "i"}], "-", "1"}], ")"}], "j", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", "j"}], "-", "1"}], ")"}]}]]}]}], ",", 
     RowBox[{
      FractionBox["1", "2"], "a", " ", 
      RowBox[{"\[Kappa]", "[", 
       RowBox[{"f", ",", "j"}], "]"}]}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.456661820734375*^9, 3.45666183171875*^9}, {
   3.456662393875*^9, 3.456662397109375*^9}, {3.456683422046875*^9, 
   3.456683431546875*^9}, 3.460223934290625*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"\[Nu]GndToInt", "[", 
    RowBox[{"f_", ",", "fPrime_"}], "]"}], "=", 
   RowBox[{"\[Nu]Int", "-", 
    RowBox[{"\[Delta]E", "[", 
     RowBox[{"aGnd", ",", "bGnd", ",", "f", ",", "jGnd"}], "]"}], "+", 
    RowBox[{"\[Delta]E", "[", 
     RowBox[{"aInt", ",", "bInt", ",", "fPrime", ",", "jInt"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Nu]GndToFin", "[", 
   RowBox[{"f_", ",", "fDPrime_"}], "]"}], ":=", 
  RowBox[{"2", " ", 
   RowBox[{"Switch", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"f", ",", "fDPrime"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"2.", ",", "0."}], "}"}], ",", "385240094977700", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"2.", ",", "1."}], "}"}], ",", "385240101727600", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"2.", ",", "2."}], "}"}], ",", "385240115692600", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"2.", ",", "3."}], "}"}], ",", "385240137803800", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"1.", ",", "0."}], "}"}], ",", "385243512320300", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"1.", ",", "1."}], "}"}], ",", "385243519070200", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"1.", ",", "2."}], "}"}], ",", "385243533031800", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"1.", ",", "3."}], "}"}], ",", "385243555144500"}], 
    "]"}]}]}]}], "Input",
 CellChangeTimes->{{3.45686233334375*^9, 3.4568623374375*^9}, 
   3.4572661415462503`*^9, {3.47308885534375*^9, 3.473088860125*^9}, {
   3.4730964853125*^9, 3.473096517875*^9}, {3.473097064765625*^9, 
   3.47309707559375*^9}, {3.536683396664125*^9, 3.53668342911725*^9}, {
   3.5385822740464134`*^9, 3.5385822762455387`*^9}, {3.538582433139513*^9, 
   3.538582435955674*^9}, {3.53858286930646*^9, 3.538583146448312*^9}, {
   3.5386057393735533`*^9, 3.5386058876180325`*^9}, {3.5386065596574707`*^9, 
   3.538606679034299*^9}, {3.538688905996657*^9, 3.5386889171506767`*^9}, {
   3.542513225909121*^9, 3.5425132352068996`*^9}}],

Cell[CellGroupData[{

Cell["Reduced Matrix Elements in J Basis", "Subsubtitle"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"dRedJGndToInt", "=", "1"}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"(", "4.51", ")"}], "1.28", " ", 
     SuperscriptBox["10", "6"]}], " ", 
    RowBox[{"(*", 
     RowBox[{"Hz", "/", 
      RowBox[{"(", 
       RowBox[{"V", "/", "cm"}], ")"}]}], "*)"}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"dRedJIntToFin", "=", "1"}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     FractionBox["1", 
      RowBox[{"e", " ", "a0"}]], 
     RowBox[{"\[Sqrt]", 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             FractionBox["1", "2"]}], "+", "1"}], " ", ")"}], "3", " ", 
          "hBar", " ", 
          SuperscriptBox["c", "3"]}], 
         RowBox[{"4", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"2", " ", "\[Pi]", " ", "\[Nu]6P12To8S"}], ")"}], "3"]}]],
         "2.04", " ", 
        SuperscriptBox["10", "6"]}], ")"}]}], "1.28", " ", 
     SuperscriptBox["10", "6"]}], " ", 
    RowBox[{"(*", 
     RowBox[{"Hz", "/", 
      RowBox[{"(", 
       RowBox[{"V", "/", "cm"}], ")"}]}], "*)"}], ";"}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.4566056364375*^9, 3.4566056744375*^9}, {
  3.456662686453125*^9, 3.456662724453125*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Reduced Matrix Elements in F Basis", "Subsubtitle",
 CellChangeTimes->{3.4566632656875*^9}],

Cell[BoxData[
 RowBox[{"Do", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Do", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{
       SubscriptBox["dRedGndToInt", 
        RowBox[{"f", ",", "fPrime"}]], "=", 
       RowBox[{"\[Sqrt]", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", "fPrime"}], "+", "1"}], ")"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", "f"}], "+", "1"}], ")"}], 
          SuperscriptBox[
           RowBox[{"SixJSymbol", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"jInt", ",", "fPrime", ",", "i"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"f", ",", "jGnd", ",", "1"}], "}"}]}], "]"}], "2"], 
          SuperscriptBox["dRedJGndToInt", "2"]}], ")"}]}]}], ";"}], ",", 
     RowBox[{"{", 
      RowBox[{"fPrime", ",", "fMinInt", ",", "fMaxInt"}], "}"}]}], "]"}], ",",
    "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"f", ",", "fMinGnd", ",", "fMaxGnd"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.456662795671875*^9, 3.456662835546875*^9}, {
  3.456663002453125*^9, 3.456663020171875*^9}, {3.5372063527331247`*^9, 
  3.5372063614518747`*^9}}],

Cell[BoxData[
 RowBox[{"Do", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Do", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      SubscriptBox["dRedIntToFin", 
       RowBox[{"fPrime", ",", "fDPrime"}]], "=", 
      RowBox[{"\[Sqrt]", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "fDPrime"}], "+", "1"}], ")"}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", "fPrime"}], "+", "1"}], ")"}], 
         SuperscriptBox[
          RowBox[{"SixJSymbol", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"jFin", ",", "fDPrime", ",", "i"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"fPrime", ",", "jInt", ",", "1"}], "}"}]}], "]"}], "2"], 
         SuperscriptBox["dRedJIntToFin", "2"]}], ")"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"fDPrime", ",", "fMinFin", ",", "fMaxFin"}], "}"}]}], "]"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"fPrime", ",", "fMinInt", ",", "fMaxInt"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.456663051265625*^9, 3.456663093375*^9}, {
   3.456663125046875*^9, 3.456663154296875*^9}, 3.456663192609375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Matrix Elements in F Basis", "Subsubtitle",
 CellChangeTimes->{{3.456663276328125*^9, 3.456663278140625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Do", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Do", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Do", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           SubscriptBox["dGndToInt", 
            RowBox[{"f", ",", "fPrime", ",", "m", ",", "mPrime"}]], "=", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"-", "1"}], ")"}], 
             RowBox[{"fPrime", "-", "mPrime"}]], 
            RowBox[{
             UnderoverscriptBox["\[Sum]", 
              RowBox[{"n", "=", "1"}], "3"], 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                "q1", "\[LeftDoubleBracket]", "n", "\[RightDoubleBracket]"}], 
                RowBox[{"ThreeJSymbol", "[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"fPrime", ",", 
                    RowBox[{"-", "mPrime"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"1", ",", 
                    RowBox[{"n", "-", "2"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"f", ",", "m"}], "}"}]}], "]"}]}], ")"}], 
              SubscriptBox["dRedGndToInt", 
               RowBox[{"f", ",", "fPrime"}]]}]}]}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"m", ",", 
            RowBox[{"-", "f"}], ",", "f"}], "}"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"mPrime", ",", 
          RowBox[{"-", "fPrime"}], ",", "fPrime"}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"fPrime", ",", "fMinInt", ",", "fMaxInt"}], "}"}]}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"f", ",", "fMinGnd", ",", "fMaxGnd"}], "}"}]}], "]"}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.45666329196875*^9, 3.4566633891875*^9}, {3.456663993*^9,
   3.45666408128125*^9}, {3.45666411909375*^9, 3.456664121515625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Do", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Do", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Do", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           SubscriptBox["dIntToFin", 
            RowBox[{
            "fPrime", ",", "fDPrime", ",", "mPrime", ",", "mDPrime"}]], "=", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"-", "1"}], ")"}], 
             RowBox[{"fDPrime", "-", "mDPrime"}]], 
            RowBox[{
             UnderoverscriptBox["\[Sum]", 
              RowBox[{"n", "=", "1"}], "3"], 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                "q2", "\[LeftDoubleBracket]", "n", "\[RightDoubleBracket]"}], 
                RowBox[{"ThreeJSymbol", "[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"fDPrime", ",", 
                    RowBox[{"-", "mDPrime"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"1", ",", 
                    RowBox[{"n", "-", "2"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"fPrime", ",", "mPrime"}], "}"}]}], "]"}]}], ")"}], 
              SubscriptBox["dRedIntToFin", 
               RowBox[{"fPrime", ",", "fDPrime"}]]}]}]}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"mPrime", ",", 
            RowBox[{"-", "fPrime"}], ",", "fPrime"}], "}"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"mDPrime", ",", 
          RowBox[{"-", "fDPrime"}], ",", "fDPrime"}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"fDPrime", ",", "fMinFin", ",", "fMaxFin"}], "}"}]}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"fPrime", ",", "fMinInt", ",", "fMaxInt"}], "}"}]}], "]"}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.45666329196875*^9, 3.456663489203125*^9}, {
  3.456664105703125*^9, 3.45666415221875*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Doppler Distribution Parameters", "Subtitle",
 FontColor->RGBColor[0, 0.356863, 0]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"amu", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1.66053886", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "27"}]]}], ")"}], " ", 
    SuperscriptBox["10", "3"]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mRb", "=", 
   RowBox[{"86.909180520", " ", "amu"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"temp", "=", "323"}], ";"}]}], "Input",
 CellChangeTimes->{{3.456606503203125*^9, 3.4566065051875*^9}, {
   3.456664763890625*^9, 3.456664790515625*^9}, {3.473097352640625*^9, 
   3.473097368078125*^9}, {3.536605457211*^9, 3.53660545749225*^9}, 
   3.5366060920235*^9, {3.536606131101625*^9, 3.536606151414125*^9}, 
   3.53666517880475*^9, {3.5402470216155534`*^9, 3.540247090642502*^9}, {
   3.540668358386324*^9, 3.5406683636016226`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Alpha]", "=", 
  RowBox[{"\[Sqrt]", 
   RowBox[{"(", 
    FractionBox[
     RowBox[{"2", " ", "kB", " ", "temp"}], "mRb"], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.45666479665625*^9, 3.456664796984375*^9}, {
  3.536606154070375*^9, 3.536606154336*^9}}],

Cell[BoxData["24860.048218994714`"], "Output",
 CellChangeTimes->{3.540409321568637*^9, 3.5404312871806173`*^9, 
  3.5404426709787393`*^9, 3.5425132890123343`*^9, 3.542513333909998*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"dopplerDist", "[", "v_", "]"}], ":=", 
  RowBox[{"Exp", "[", 
   RowBox[{"-", 
    FractionBox[
     SuperscriptBox["v", "2"], 
     SuperscriptBox["\[Alpha]", "2"]]}], "]"}]}]], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Comb Parameters", "Subtitle",
 FontColor->RGBColor[0, 0.356863, 0]],

Cell["Offset Frequency", "Subsubtitle"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"f0", "=", 
   RowBox[{
    RowBox[{"-", "53.25"}], "*", " ", 
    SuperscriptBox["10", "6"]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"scanRange", "=", "90"}], ";"}]}], "Input",
 CellChangeTimes->{{3.536606229336*^9, 3.536606229476625*^9}, 
   3.536609033945375*^9, {3.53667308924225*^9, 3.536673089507875*^9}, {
   3.536679694632875*^9, 3.5366796956485*^9}, {3.536683666961*^9, 
   3.5366836672735*^9}, 3.5370104677487497`*^9, 3.5370325434049997`*^9, {
   3.539116492685813*^9, 3.5391164930290136`*^9}, 3.539127919839781*^9, {
   3.539999557079931*^9, 3.539999600291931*^9}, {3.540042597806141*^9, 
   3.5400425992725315`*^9}, 3.5400659159530563`*^9, {3.5425132689347486`*^9, 
   3.542513278107725*^9}}],

Cell[CellGroupData[{

Cell["Rep Rate Range", "Subsubtitle",
 CellChangeTimes->{{3.45666493915625*^9, 3.456664941796875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"fRepMin", "=", "250000000.0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"fRepMax", "=", 
  RowBox[{"fRepMin", "+", "scanRange"}]}]}], "Input",
 CellChangeTimes->{{3.456664947171875*^9, 3.4566649499375*^9}, {
   3.456665042671875*^9, 3.45666507275*^9}, {3.456665103265625*^9, 
   3.45666510571875*^9}, {3.456665200171875*^9, 3.45666520296875*^9}, {
   3.456691746078125*^9, 3.45669175240625*^9}, {3.536342589414125*^9, 
   3.536342618445375*^9}, {3.5366062423985*^9, 3.536606269101625*^9}, {
   3.536673100086*^9, 3.536673151445375*^9}, {3.536679707945375*^9, 
   3.536679725882875*^9}, {3.536683688101625*^9, 3.53668372074225*^9}, {
   3.5369246547956247`*^9, 3.5369246550456247`*^9}, {3.5372003428581247`*^9, 
   3.5372003561081247`*^9}, {3.5377186875620003`*^9, 
   3.5377186920307503`*^9}, {3.5377228732026253`*^9, 
   3.5377228764838753`*^9}, {3.5377945896870003`*^9, 
   3.5377945969526253`*^9}, {3.5378884679682503`*^9, 
   3.5378884728745003`*^9}, {3.5378886446870003`*^9, 
   3.5378886463745003`*^9}, {3.5378933335587473`*^9, 
   3.5378933356803513`*^9}, {3.537893370718013*^9, 3.5378933755228214`*^9}, {
   3.5379017917519245`*^9, 3.537901792812726*^9}, {3.5385833273276577`*^9, 
   3.538583332126932*^9}, {3.539116509315442*^9, 3.539116540281497*^9}, {
   3.539999589730731*^9, 3.539999598310731*^9}, 3.539999698417289*^9, 
   3.540065826867961*^9, 3.540065927064692*^9, 3.540077153730686*^9, {
   3.5404089194488587`*^9, 3.540408922466031*^9}}],

Cell[BoxData["2.5000009`*^8"], "Output",
 CellChangeTimes->{3.540409321599837*^9, 3.5404312872118173`*^9, 
  3.540442671009939*^9, 3.542513289027935*^9, 3.542513333925598*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fRepAvg", "=", 
  FractionBox[
   RowBox[{"fRepMin", "+", "fRepMax"}], "2"]}]], "Input",
 CellChangeTimes->{{3.456665192578125*^9, 3.456665212796875*^9}, 
   3.5400659248425646`*^9}],

Cell[BoxData["2.50000045`*^8"], "Output",
 CellChangeTimes->{3.5404093216154366`*^9, 3.540431287227417*^9, 
  3.5404426710411386`*^9, 3.542513289043535*^9, 3.5425133339411983`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Comb Modes", "Subsubtitle",
 CellChangeTimes->{{3.4566813895*^9, 3.45668139175*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n1NomA", "=", 
   RowBox[{"Round", "[", 
    FractionBox[
     RowBox[{"\[Nu]GndToInt", "[", 
      RowBox[{"fMinGnd", ",", "fMinInt"}], "]"}], "fRepAvg"], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n1NomB", "=", 
   RowBox[{"Round", "[", 
    FractionBox[
     RowBox[{"\[Nu]GndToInt", "[", 
      RowBox[{"fMaxGnd", ",", "fMaxInt"}], "]"}], "fRepAvg"], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.456665147765625*^9, 3.456665238296875*^9}, {
  3.5404090137802544`*^9, 3.540409014676306*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n2NomA", "=", 
   RowBox[{"Round", "[", 
    RowBox[{
     FractionBox["1", "fRepAvg"], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"\[Nu]GndToFin", "[", 
        RowBox[{"fMinGnd", ",", "fMinFin"}], "]"}], "-", 
       RowBox[{"\[Nu]GndToInt", "[", 
        RowBox[{"fMinGnd", ",", "fMinInt"}], "]"}]}], ")"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n2NomB", "=", 
   RowBox[{"Round", "[", 
    RowBox[{
     FractionBox["1", "fRepAvg"], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"\[Nu]GndToFin", "[", 
        RowBox[{"fMaxGnd", ",", "fMaxFin"}], "]"}], "-", 
       RowBox[{"\[Nu]GndToInt", "[", 
        RowBox[{"fMaxGnd", ",", "fMaxInt"}], "]"}]}], ")"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.456665147765625*^9, 3.4566653128125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"n1List", "=", 
  RowBox[{"Union", "[", 
   RowBox[{"Join", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"n1NomA", "+", "\[Delta]n"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Delta]n", ",", 
         RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}], ",", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"n1NomB", "+", "\[Delta]n"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Delta]n", ",", 
         RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}]}], "]"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.456665383359375*^9, 3.45666546196875*^9}, {
  3.456665618125*^9, 3.456665620609375*^9}, {3.5372066701081247`*^9, 
  3.5372066730768747`*^9}, {3.5377187815151253`*^9, 3.5377187956088753`*^9}, {
  3.5377946040932503`*^9, 3.5377946077338753`*^9}, {3.5377949385776253`*^9, 
  3.5377949450151253`*^9}, {3.537893207650926*^9, 3.537893217432143*^9}, {
  3.5385234618671618`*^9, 3.53852346744048*^9}, {3.538583211301021*^9, 
  3.5385832213905983`*^9}, {3.5403169380378237`*^9, 3.540316942063656*^9}, {
  3.5404089486965313`*^9, 3.540408953899829*^9}, {3.540408989700877*^9, 
  3.540408998262367*^9}, {3.540442631448593*^9, 3.540442639810139*^9}, {
  3.5425131013095245`*^9, 3.5425131054592047`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1536909", ",", "1536910", ",", "1536911", ",", "1536912", ",", "1536913", 
   ",", "1536914", ",", "1536915", ",", "1536935", ",", "1536936", ",", 
   "1536937", ",", "1536938", ",", "1536939", ",", "1536940", ",", 
   "1536941"}], "}"}]], "Output",
 CellChangeTimes->{3.5404093216310368`*^9, 3.5404312872430167`*^9, 
  3.5404426710879383`*^9, 3.5425132890591354`*^9, 3.542513333972399*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"n2List", "=", 
  RowBox[{"Union", "[", 
   RowBox[{"Join", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"n2NomA", "+", "\[Delta]n"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Delta]n", ",", 
         RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}], ",", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"n2NomB", "+", "\[Delta]n"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Delta]n", ",", 
         RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}]}], "]"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.456665383359375*^9, 3.45666546196875*^9}, {
  3.456665585125*^9, 3.45666558903125*^9}, {3.456665624328125*^9, 
  3.456665626734375*^9}, {3.5372066753268747`*^9, 3.5372066804518747`*^9}, {
  3.5377187866401253`*^9, 3.5377187978745003`*^9}, {3.5377946088901253`*^9, 
  3.5377946116245003`*^9}, {3.5377949469370003`*^9, 3.5377949552338753`*^9}, {
  3.5378932198813477`*^9, 3.537893225029357*^9}, {3.538523470201638*^9, 
  3.5385234737538414`*^9}, {3.538583224257762*^9, 3.5385832272179317`*^9}, {
  3.54031694356164*^9, 3.540316948430088*^9}, {3.5404089555279226`*^9, 
  3.5404089605492096`*^9}, {3.5404089910619545`*^9, 3.540408996635274*^9}, {
  3.5404426567672305`*^9, 3.5404426647075796`*^9}, {3.5425131072220383`*^9, 
  3.542513113384157*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1545005", ",", "1545006", ",", "1545007", ",", "1545008", ",", "1545009", 
   ",", "1545010", ",", "1545011", ",", "1545012", ",", "1545013"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.5404093216622367`*^9, 3.5404312872586164`*^9, 
  3.5404426711191387`*^9, 3.542513289090336*^9, 3.5425133339879994`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Comb Equation", "Subsubtitle",
 CellChangeTimes->{{3.456681410328125*^9, 3.456681413015625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Omega]L", "[", 
    RowBox[{"n_", ",", "fR_"}], "]"}], ":=", 
   RowBox[{"2", " ", "\[Pi]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"n", " ", "fR"}], "+", "f0"}], ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.456678515171875*^9, 3.45667856759375*^9}, {
  3.4566795630625*^9, 3.45667956609375*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Integrate 2-photon Lineshape over Doppler Distribution", "Subtitle",
 FontColor->RGBColor[0, 0.356863, 0]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"transProb", "[", 
     RowBox[{"\[Omega]1_", ",", "\[Omega]2_", ",", "v_"}], "]"}], "=", 
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"fDPrime", "=", "fMinFin", " "}], "fMaxFin"], 
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"f", "=", "fMinGnd"}], "fMaxGnd"], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Gamma]Fin", "+", "\[Gamma]T"}], ")"}], "2"], "4"], 
          "/", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "\[Pi]", " ", 
                RowBox[{"\[Nu]GndToFin", "[", 
                 RowBox[{"f", ",", "fDPrime"}], "]"}]}], "-", 
               RowBox[{"\[Omega]1", 
                RowBox[{"(", 
                 RowBox[{"1", "+", 
                  FractionBox["v", "c"]}], ")"}]}], "-", 
               RowBox[{"\[Omega]2", 
                RowBox[{"(", 
                 RowBox[{"1", "-", 
                  FractionBox["v", "c"]}], ")"}]}]}], ")"}], "2"], "+", 
            FractionBox[
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"\[Gamma]Fin", "+", "\[Gamma]T"}], ")"}], "2"], "4"]}],
            ")"}]}], ")"}], 
        FractionBox["1", 
         RowBox[{
          RowBox[{"2", "f"}], "+", "1"}]], 
        RowBox[{
         UnderoverscriptBox["\[Sum]", 
          RowBox[{"m", "=", 
           RowBox[{"-", "f"}]}], "f"], 
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"mDPrime", "=", 
            RowBox[{"-", "fDPrime"}]}], "fDPrime"], 
          SuperscriptBox[
           RowBox[{"Abs", "[", 
            RowBox[{
             UnderoverscriptBox["\[Sum]", 
              RowBox[{"fPrime", "=", "fMinInt"}], "fMaxInt"], 
             RowBox[{
              UnderoverscriptBox["\[Sum]", 
               RowBox[{"mPrime", "=", 
                RowBox[{"-", "fPrime"}]}], "fPrime"], 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 FractionBox[
                  RowBox[{"\[Gamma]Int", "+", "\[Gamma]T"}], "2"], "/", 
                 RowBox[{"(", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[ImaginaryI]", " ", 
                    RowBox[{"(", 
                    RowBox[{"\[Gamma]Int", "+", "\[Gamma]T"}], ")"}]}], "2"], 
                   "+", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"\[Omega]1", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    FractionBox["v", "c"]}], ")"}]}], "-", " ", 
                    RowBox[{"2", " ", "\[Pi]", " ", 
                    RowBox[{"\[Nu]GndToInt", "[", 
                    RowBox[{"f", ",", "fPrime"}], "]"}]}]}], ")"}]}], ")"}]}], 
                SubscriptBox["dGndToInt", 
                 RowBox[{"f", ",", "fPrime", ",", "m", ",", "mPrime"}]], 
                SubscriptBox["dIntToFin", 
                 RowBox[{
                 "fPrime", ",", "fDPrime", ",", "mPrime", ",", "mDPrime"}]]}],
                ")"}]}]}], "]"}], "2"]}]}]}], ")"}]}]}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"transProb", "[", 
      RowBox[{"\[Omega]1_", ",", "\[Omega]2_", ",", "v_"}], "]"}], "=", 
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"fDPrime", "=", "fMinFin"}], "fMaxFin"], 
      RowBox[{
       UnderoverscriptBox["\[Sum]", 
        RowBox[{"f", "=", "fMinGnd"}], "fMaxGnd"], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Gamma]Fin", "+", "\[Gamma]T"}], ")"}], "2"], "4"], 
           "/", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", "\[Pi]", " ", 
                 RowBox[{"\[Nu]GndToFin", "[", 
                  RowBox[{"f", ",", "fDPrime"}], "]"}]}], "-", 
                RowBox[{"\[Omega]1", 
                 RowBox[{"(", 
                  RowBox[{"1", "+", 
                   FractionBox["v", "c"]}], ")"}]}], "-", 
                RowBox[{"\[Omega]2", 
                 RowBox[{"(", 
                  RowBox[{"1", "-", 
                   FractionBox["v", "c"]}], ")"}]}]}], ")"}], "2"], "+", 
             FractionBox[
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"\[Gamma]Fin", "+", "\[Gamma]T"}], ")"}], "2"], 
              "4"]}], ")"}]}], ")"}], 
         FractionBox["1", 
          RowBox[{
           RowBox[{"2", "f"}], "+", "1"}]], 
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"m", "=", 
            RowBox[{"-", "f"}]}], "f"], 
          RowBox[{
           UnderoverscriptBox["\[Sum]", 
            RowBox[{"mDPrime", "=", 
             RowBox[{"-", "fDPrime"}]}], "fDPrime"], 
           SuperscriptBox[
            RowBox[{"Abs", "[", 
             RowBox[{
              UnderoverscriptBox["\[Sum]", 
               RowBox[{"fPrime", "=", "fMinInt"}], "fMaxInt"], 
              RowBox[{
               UnderoverscriptBox["\[Sum]", 
                RowBox[{"mPrime", "=", 
                 RowBox[{"-", "fPrime"}]}], "fPrime"], "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[Gamma]Int", "+", "\[Gamma]T"}], "2"], "/", 
                  RowBox[{"(", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[ImaginaryI]", " ", 
                    RowBox[{"(", 
                    RowBox[{"\[Gamma]Int", "+", "\[Gamma]T"}], ")"}]}], "2"], 
                    "+", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"\[Omega]1", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    FractionBox["v", "c"]}], ")"}]}], "-", " ", 
                    RowBox[{"2", " ", "\[Pi]", " ", 
                    RowBox[{"\[Nu]GndToInt", "[", 
                    RowBox[{"f", ",", "fPrime"}], "]"}]}]}], ")"}]}], ")"}]}],
                  ")"}], 
                SubscriptBox["dGndToInt", 
                 RowBox[{"f", ",", "fPrime", ",", "m", ",", "mPrime"}]], 
                SubscriptBox["dIntToFin", 
                 RowBox[{
                 "fPrime", ",", "fDPrime", ",", "mPrime", ",", 
                  "mDPrime"}]]}]}]}], "]"}], "2"]}]}]}], ")"}]}]}]}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"fnToIntegrate", "[", 
     RowBox[{"fR_", ",", "v_"}], "]"}], "=", 
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"n1", "=", "1"}], 
      RowBox[{"Length", "[", "n1List", "]"}]], 
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"n2", "=", "1"}], 
       RowBox[{"Length", "[", "n2List", "]"}]], 
      RowBox[{
       RowBox[{"dopplerDist", "[", "v", "]"}], 
       RowBox[{"transProb", "[", 
        RowBox[{
         RowBox[{"\[Omega]L", "[", 
          RowBox[{
           RowBox[{
           "n1List", "\[LeftDoubleBracket]", "n1", "\[RightDoubleBracket]"}], 
           ",", "fR"}], "]"}], ",", 
         RowBox[{"\[Omega]L", "[", 
          RowBox[{
           RowBox[{
           "n2List", "\[LeftDoubleBracket]", "n2", "\[RightDoubleBracket]"}], 
           ",", "fR"}], "]"}], ",", "v"}], "]"}]}]}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"vIntSpec", "[", 
    RowBox[{"fRep_", "?", "NumericQ"}], "]"}], ":=", 
   RowBox[{"NIntegrate", "[", 
    RowBox[{
     RowBox[{"fnToIntegrate", "[", 
      RowBox[{"fRep", ",", "v"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"v", ",", 
       RowBox[{"-", "60000"}], ",", "60000"}], "}"}], ",", 
     RowBox[{"MinRecursion", "\[Rule]", "3"}], ",", 
     RowBox[{"MaxRecursion", "\[Rule]", "10"}], ",", 
     RowBox[{"AccuracyGoal", "\[Rule]", "4"}], ",", 
     RowBox[{"PrecisionGoal", "\[Rule]", "2"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.538523548469115*^9, 3.5385235524603434`*^9}, {
  3.5385832601238136`*^9, 3.538583261230877*^9}, {3.541025734142933*^9, 
  3.541025749214755*^9}, {3.541027213669488*^9, 3.5410272514716806`*^9}, {
  3.542466121991874*^9, 3.542466128996274*^9}, {3.5424667631102743`*^9, 
  3.542466764763874*^9}, {3.542467375825074*^9, 3.542467377790674*^9}, {
  3.542467931643674*^9, 3.542467938928874*^9}, {3.5424692389422517`*^9, 
  3.5424692411886663`*^9}, {3.54247663667696*^9, 3.5424766407173862`*^9}, {
  3.5425005162515373`*^9, 3.542500535019781*^9}, {3.5425007312204723`*^9, 
  3.5425007337322655`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Calculation", "Subtitle",
 CellChangeTimes->{{3.456681446140625*^9, 3.45668144753125*^9}, {
  3.5379007941050625`*^9, 3.537900798020669*^9}},
 FontColor->RGBColor[0, 0.356863, 0]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Delta]f", "=", "0.25"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fr", "=", "fRepMin"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"fRepList", "=", 
    RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Form", " ", "the", " ", "fRepList"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"While", " ", "[", 
  RowBox[{
   RowBox[{"fr", "<", "fRepMax"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"fRepList", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"fRepList", ",", "fr"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"fr", "+=", "\[Delta]f"}], ";"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{
  3.456746939*^9, {3.5372003913424997`*^9, 3.5372003937643747`*^9}, {
   3.5378885919057503`*^9, 3.5378885935932503`*^9}, {3.537901719773398*^9, 
   3.53790172663741*^9}, 3.5379017983975363`*^9, 3.5385235615778646`*^9, 
   3.538524008413422*^9, {3.540084146036523*^9, 3.5400841470661955`*^9}, 
   3.5404312983500743`*^9, 3.5404424331582637`*^9, {3.5410239668018274`*^9, 
   3.5410239832807074`*^9}, {3.541029277296784*^9, 3.541029278919194*^9}, {
   3.542421816350875*^9, 3.542421818719475*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{
     "\"\<C:\\\\RbDFCS\\\\Rb87_5D52.txt\>\"", ",", "totalSpec", ",", 
      "\"\<Table\>\""}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"tt", "=", 
     RowBox[{"AbsoluteTime", "[", "]"}]}], ";"}], "\n", " ", 
   RowBox[{"(*", 
    RowBox[{
    "distribute", " ", "NIntegrate", " ", "among", " ", "CPU", " ", "cores"}],
     "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"specList", "=", 
     RowBox[{"ParallelTry", "[", 
      RowBox[{"vIntSpec", ",", "fRepList", ",", 
       RowBox[{"Length", "[", "fRepList", "]"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ttt", "=", 
     RowBox[{
      RowBox[{"AbsoluteTime", "[", "]"}], "-", "tt"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"\"\<Execution time = \>\"", ",", "ttt"}], "]"}], 
   "\[IndentingNewLine]", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"totalSpec", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
         "fRepList", "\[LeftDoubleBracket]", "t", "\[RightDoubleBracket]"}], 
         ",", 
         RowBox[{"Chop", "[", 
          RowBox[{
          "specList", "\[LeftDoubleBracket]", "t", "\[RightDoubleBracket]"}], 
          "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "1", ",", 
         RowBox[{"Length", "[", "specList", "]"}]}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"totalSpec", ",", " ", 
     RowBox[{"PlotRange", "\[Rule]", " ", "All"}], ",", " ", 
     RowBox[{"Joined", "\[Rule]", " ", "True"}]}], " ", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.5385255757270675`*^9, 3.5385255896838655`*^9}, 
   3.538525623446797*^9, {3.5385833530161266`*^9, 3.5385833644487805`*^9}, 
   3.5386070295553474`*^9, {3.5391281630166893`*^9, 3.539128167970973*^9}, {
   3.54006852448602*^9, 3.5400685308040204`*^9}, {3.5410239000592422`*^9, 
   3.5410239015417175`*^9}, {3.5410239950156674`*^9, 
   3.5410239980430374`*^9}, {3.5410240329982376`*^9, 3.541024060104122*^9}, {
   3.5410262133987827`*^9, 3.541026267538763*^9}, 3.542422807691163*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Execution time = \"\>", "\[InvisibleSpace]", 
   "755.2729242`10.329648909437276"}],
  SequenceForm["Execution time = ", 755.2729242`10.329648909437276],
  Editable->False]], "Print",
 CellChangeTimes->{3.5425015133509207`*^9, 3.5425097578939266`*^9, 
  3.5425140897445326`*^9}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwl2Hc8Vv0fx/FD9gotWgjZKzSQq9sokdIVQqpfRcO4qZCKnFAZEW7j1hKV
kcy0NBRKJVEI3YlEd1lJMkr87s+7/unxfLxcnOuc7/d7zvkqbPfhuvMyDLOb
h2Hof/rnXpP3R19yiOCDimcchmF/e7lGjIAhmeEhy5vl/vqbt5o6HDgwkvYm
CJ2XzC8XVav7/Sl12E3q9AujK2RmCrlMx71/2AcddmDiHzfxovORmQmDC+zI
E+pwi8V6b8UaMsNPFg2zTFiYiw5/217w6m4sugD5pGjAyz4fdPjajiXPx53Q
BcmOdjstjnGqqMOvs98PS65FFyLHtRhlqXHwedhIzDi20BRdmDwoZ1DyfSU6
bM47qaMGMyLkxliBmxOO6HBlWptywE50UbJZh02xWiU63PAuVVXpJLoYeZ6c
lVt3ITqsYlzZaf4DXRznf8pX/w4+nD+4/fs1s6uGOH8SZN5fbvdjfp9feJRj
++l5IvpUsmbTfLOzTehwiPGtz4NiuH6S5Jzy+zMYL1z/334oZr2gH12KvHpF
9InIjbj+cDd3vMO+hsxIk20vqSex+ejwrRHVIubJc+rTcP7zn748b/WCOqwm
tjVkR2QN9elkGR3DxtDptdRh00rn1H86ycwM/LxThNTtvXXUf/u9Wid3gszM
JPvJTFGUTn9JHXY45+dctvkV9VnkMbv6wiNG9dThFwbf9CRNG6jLkJ1fng2v
2NtIHb5xIXZoWcdr6rLklWdunp2e2Uwd5jy//CCo7g312eR/r4uGPan5hzp8
y2Xe19VsO/U5ZFZb9bx8Xgd1OEFaK2Xmri7qc8m+YsVSQiWfqMMB9Xm26t69
1Ofh+p3yMIufOUAdfnJHRFsl6yv1+fh7a/2mWlwcpA5bBTrvVUskM3JkyV16
5n98op9n4cjgyyXL0+n3MfL4fnPnya617KcOeysVzlY+00NdgWypwlhyJj9T
h7V+mKvf76fjZRaQJ5pUguek4fjhJ5tafpko0c8ziuRH3lMXZm7upg6/fFbU
7+CB76dEXmP5sW1sxRfq8Iptsa2tSfh+yri+5bYL9Zgh6vCXWp8jKVnD1BeS
haL1Vcbnj1GHBU19rhwd/0FdhSxuVHpwTdhP6vD6pzLhehXoqjj/ibIl+T9H
qcOrN+tlG+Tj96uRmxV3pY5uwd+H7xZMNOduw/lVx3jlxByLCcfxwxqZLeGc
BpxfDfIq5cFdvov7qMOGF4/nn5Wj881okj1Mfg6niKDDQmF9HYMbyYwW+Wty
9hyBQXTYQ+tjkFYvPq9NXltoMSy8AOMD7qgLksjixfnTIZdUxwVzZDA+YNPW
GDvdbd+o65Kj760xm96G7wev80iaL12F769HFhnv5xoyOL/wRen0moZsOp/M
InKEqtfY97YJ6nCX0+vuLk+eFf91fVyPIiP5Ka1T/jMLf92dajzwQ4C6Ada7
Yr9Yv1oR6nBG7Rd/zVtTqRuSXQpCDgTwTaMOfxS3Dd0kO4v6YrLUdZ+RB85z
qcPSB1USCg4rUF+C87V5v1qBvzJ1WFe78unbWjXqSzFe1Q+4mXK1qcNG3Auh
0RW61JeRowL151u46VGHn8zjbD31Ed2IbDw4Xrm8DJ+HE159C+sOUaduTE55
XFDeMI6/D690989ubcPxmZBrbkZG833C8cNhVprFl4Lw/ZaTLyS1XZ92G98f
Hp+dWlobJEndFNdbQFf72YAodbjZM+DtSSEh6hzMZ4EJgdAJPupwmHBB3v5w
XuorMP8ep1+WiGCow6K8acX+1b/o+v5Btn8q+KeDOeYPrCM02PUQ84UxI3PH
4w4Ka41Qh4sXbPwmfPk7dXOsFy6LFcKDMb5gvjmfy2cHY/xZ4PqZbFH3SMP4
hFc2RxpZjmL8WpKbMo/z1Xhi/YK9N+UsfT6J+bWSvEO+aEXqPYx/uExwdfM3
P/RV5L2L+3gmXdHhGllh/zpHdCusJzpV9Se6MX/hZ+rK5qkp6KvJG/Rs5lm3
4/PwNE8r3u8mOD5rslNMUunrEhwffESJv0iwGeuDDfktn/Pt0I34fnBoUKBH
eDf6GnLQmqiR/jc4PzBnKOB0+hE6n4wtvu/6Om6iGM1HFv5HwNYhZhHNR2Yt
uVxxl98HI1wf+Ho4y6eSh+u3jizrO61x0gbXF97HKVlV2oz5aUeepVg/WSKI
8QGnLT2//GEp5ud68p67bj9YV8xP2NHYTmlWogR1LtarCZWS5+LS1GHOuv7+
c8dmUN9Arm59XxoyIUsd1qgc8sn0lKNuT3aL/CURX7uAOpx8ykJKv53mC+NA
Llr1Tn5mjCp1uMG6Ma/VEvPLEfPxbytJ5x9kFn76UNfw6mvM743k+2tF9Y7f
U6EONy1iqssd8PudsJ4IJkZHqypShxO2yylcVcL8dMb92/bi9rZSeepwxhfX
M/L5ZMaFPLNf9aLDXvp5Fq5eknl1qhf9PmYTWa/tgvGNV5j/sJB/WdV7exyf
K3l0bKh52hqsL/D3O/d5Y730qW8mv6hrPHKjQos67OQlZfuo3YD6FvK7ntwn
i2cZUoc3yr+bnTiOz28lx7Z8KFFctYg63NDq1O+YQOsV8z/cP066Nnf40vGw
cK3R9m+7m5SobyN/vndlbq80vh+sfzj0/oAurVfMdoynUq/CgFRar1hYUdFs
PKOW1itmB1nSOp73prUUdXh5xsz8JAuMHzfcb6V03ewLML5gafOBGfEqWL/c
yQsTBvMeVvFTh/f8jBIaUKTxyuwkx1XqPfdUxf0FfsgW2a7Vx/q2C/f7BdoP
np2g8c7CGte5EhOyGP+7yQUGFQ9TezE/YGU2Omf8F5nZg/HJa+xu5IDPw5qn
+p69HcfnPciVM3JWdDH4+/AdyeEd8f44Pk/c78aWSZap0nxiYb+QMQsnVWHq
XmT/cLkkk0Yx6jCnI0So6hXWd29yqpmt9yEJGeqwvadUbrvgdOp/kgNvXWK9
enH/gLUzVFpShDB+fch/iW8MiIvA+IbLqq8E+6li/Ptivb/kfb3jI8YnvMX9
4R1He/S9ZNXd6YE2m/B5+B+NMJ38Gxj/+zD+l9psOdYzhzq8mE9vrLp3JvX9
5DcR+lMMKrA+wPeUHbi8n3D9/cg52yxvzSqj88HCVy2Gjj6upOvN+JODIzt7
ZPbR9WRhru1cHm01XJ8AsmuFayfHa5zWP7jRp71gqjnWxwPkXt1917fnYf2E
by9x+v7pKK23TCBZxKwkfbgQ6zM8llW1iquL9f0g+X8Te69/7MP9AV43ryz2
eDmezw6RvernfjD4TM/LLKwxujo7eAM97zKHcf+7xHJ3fcPzMcz936M6+bJ/
qQfh/tOZlOZ49yN1uOld8qRQ4gfqweSh/+56D9TpfYGFFz2W+9AR0Un9CMZ7
7UjLHVEyC78K8x+JzMDnQ8j9o49DVezJLLxkhUeeggI6S+52jdWunYIOx5t9
uR01Se8rzFGyncTwmy3T0eH1enaTr0zx+VCySzmfwosU9N+u6hyYJYzjCyPz
dt4YHPTA8cEFgW5be7zw/hNOtvq5pGRkI74/PDGoZVETj/NzjLxpVHOZnSLe
P+CDSx0jdsji/eQ4eU7XL7nP+rg/wyEijabLAnF9TuB6Vp3zDpTC9YV9Fz8x
jfHF9Y/A/AlTHlU5jOcXeCfXJ0B+Np5vI7HePhNxTlmC9QFemJ54VeQszXcm
Cte7odVTXVycOnx0y9cYXnVB6tFk21mXR2SDsf7Bs+9oWNccwPw9SZ7bH5t9
ZYDmCwtbLXrY9dGc5jsTQz7llBjkKoz5D5sp6LRVcDG/YnH8L6ZXZSfSesHC
+bMfrJjk0vMgc4p8QfPrnuhMPD/CLu75dU/NcX+PIx/w3Cfj9ALrGxy3N3NY
0oie55l4zHc+4SKrdXj+h1PjZGvOhOD5LoFcJ98z9Ysyzj/s95eYzLVwPN/8
hft33KHwsBB632PhiL/Pb1LxwPthIvnQhk056qN4P4b9zofV37uL8ZNE/ney
q0fzHcbHbwc8KDYKek89mXxtYFGxyyJ632ZhfrOZGlu131FPIXcpr5e/w/OW
OuzJk3Kk7zze3/8mT7N/6+/yuok63DjNufJEEd7/U8kpuZ7/btZuoQ4HVu4u
bM6l/QLmNFnlhqcdU077CSzMsR43v9dK+w3MGbLFidBOM0XsP8B87uG++49h
f+Is1rtpTeycbuxfwGuqLrlf3UJmzpHfbi+rPHcH+x/wYXHW4rYH9j/Ok3WS
qyIzeNDhhZ3p4krLsX+Shr+X/jhKLhr7L7DEnq3hM95g/+UC1udHiY/47cgs
PL46YfOOu9i/SSdfiTznq/4T+zvweh2TuFnPsP+TQe47/d54pys6PKJQsNJm
BPtHF3E/rFAT3nca+0twbplCkXUC+iXcb+5sKDMXR4dPLosRjp+L/avL5HOG
/A2hjdgfg8cmAjosTmN/LJNs5BuzfTf2+1j4T+lnBfE96Fnk9ps29VmP0eFm
P7PIrBz0bHLrVJPzl7Afx8LJP6IEjgWg55BLXR5rXXJFhxt61807sB79Cjn0
Z4te7u/9P7j95C6zNiv0XPTydP48G3Q4/n0wT6kl+lVy/Q7NP0fs0GGJ8Ay5
DnPar2TyyJu/3Cpu3I8OO/bcFvVLxufzyWIxB+af+r1/CA9VVm2wgJkC3B/4
G+JyStHhXpNVb0eVcH4LMf+0QpQzt2F/EP784lCyURp6ETnKqGV1yAd0uLjs
tvtJbVy/Ysyf4bKl05fi+sMBpjaPRFvRr5Fb1mwb8jJBh6udb3Klsqo5/wdK
Ez+Q
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{3.542501513382123*^9, 3.5425097579407277`*^9, 
  3.542514089775734*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"vList", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"v", ",", 
        RowBox[{"fnToIntegrate", "[", 
         RowBox[{"fRepAvg", ",", "v"}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"v", ",", 
        RowBox[{"-", "30000"}], ",", "30000", ",", "100"}], "}"}]}], "]"}]}], 
   ";"}], "*)"}]], "Input",
 CellChangeTimes->{{3.5377899216870003`*^9, 3.5377899242495003`*^9}, {
  3.541023048631363*^9, 3.5410230563408747`*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"ListPlot", "[", 
   RowBox[{"vList", ",", 
    RowBox[{"PlotRange", "\[Rule]", " ", "All"}]}], "]"}], "*)"}]], "Input",
 CellChangeTimes->{{3.5377897259057503`*^9, 3.5377898006713753`*^9}, {
  3.5377899038745003`*^9, 3.5377899277495003`*^9}, {3.5400685373248205`*^9, 
  3.54006853852602*^9}, {3.5404941938215923`*^9, 3.5404942214020386`*^9}, {
  3.541023044901457*^9, 3.5410230544993315`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"Export", "[", 
   RowBox[{"oFile", ",", "totalSpec", ",", "\"\<Table\>\""}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.541025417015375*^9, 3.5410254354270334`*^9}, {
  3.541026196751128*^9, 3.5410261970631742`*^9}, {3.5410292898080645`*^9, 
  3.5410292918048773`*^9}, {3.542421909689475*^9, 3.542421919133875*^9}}],

Cell[BoxData["\<\"C:\\\\Users\\\\Administrator\\\\Dropbox\\\\RbDFS\\\\\
calculation\\\\Rb87_5D32_new_offset_A.txt\"\>"], "Output",
 CellChangeTimes->{3.54250151377215*^9, 3.542509758315137*^9, 
  3.542514090165741*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1272, 684},
WindowMargins->{{237, Automatic}, {Automatic, 144}},
CellContext->Notebook,
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (November 7, 2010)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 460, 13, 72, "Input"],
Cell[CellGroupData[{
Cell[1030, 37, 76, 1, 49, "Subtitle"],
Cell[1109, 40, 774, 14, 31, "Input"],
Cell[CellGroupData[{
Cell[1908, 58, 37, 0, 28, "Subsubtitle"],
Cell[1948, 60, 148, 5, 31, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2133, 70, 40, 0, 28, "Subsubtitle"],
Cell[2176, 72, 223, 8, 31, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2436, 85, 107, 1, 28, "Subsubtitle"],
Cell[2546, 88, 330, 10, 31, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[2925, 104, 75, 1, 49, "Subtitle"],
Cell[3003, 107, 102, 1, 49, "Subtitle"],
Cell[3108, 110, 149, 2, 28, "Subsubtitle"],
Cell[3260, 114, 325, 7, 47, "Input"],
Cell[CellGroupData[{
Cell[3610, 125, 105, 1, 28, "Subsubtitle"],
Cell[3718, 128, 354, 9, 47, "Input"],
Cell[CellGroupData[{
Cell[4097, 141, 105, 1, 31, "Input"],
Cell[4205, 144, 187, 2, 30, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[4441, 152, 101, 1, 28, "Subsubtitle"],
Cell[4545, 155, 219, 6, 31, "Input"],
Cell[4767, 163, 167, 5, 31, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[4983, 174, 106, 1, 49, "Subtitle"],
Cell[5092, 177, 222, 3, 28, "Subsubtitle"],
Cell[5317, 182, 306, 7, 47, "Input"],
Cell[CellGroupData[{
Cell[5648, 193, 199, 3, 28, "Subsubtitle"],
Cell[5850, 198, 287, 7, 47, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6174, 210, 109, 1, 28, "Subsubtitle"],
Cell[6286, 213, 301, 8, 52, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6624, 226, 389, 5, 28, "Subsubtitle"],
Cell[7016, 233, 925, 17, 31, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7978, 255, 413, 6, 28, "Subsubtitle"],
Cell[8394, 263, 554, 9, 31, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[8997, 278, 115, 1, 49, "Subtitle"],
Cell[9115, 281, 249, 3, 28, "Subsubtitle"],
Cell[9367, 286, 330, 7, 47, "Input"],
Cell[CellGroupData[{
Cell[9722, 297, 199, 3, 28, "Subsubtitle"],
Cell[9924, 302, 355, 8, 47, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10316, 315, 115, 1, 28, "Subsubtitle"],
Cell[10434, 318, 347, 9, 52, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10818, 332, 252, 3, 28, "Subsubtitle"],
Cell[11073, 337, 630, 16, 47, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11740, 358, 315, 4, 28, "Subsubtitle"],
Cell[12058, 364, 1180, 21, 52, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13275, 390, 350, 5, 28, "Subsubtitle"],
Cell[13628, 397, 1008, 18, 31, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14673, 420, 371, 5, 28, "Subsubtitle"],
Cell[15047, 427, 1010, 18, 31, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[16106, 451, 155, 2, 49, "Subtitle"],
Cell[16264, 455, 240, 3, 28, "Subsubtitle"],
Cell[16507, 460, 398, 8, 47, "Input"],
Cell[CellGroupData[{
Cell[16930, 472, 199, 3, 28, "Subsubtitle"],
Cell[17132, 477, 473, 9, 47, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17642, 491, 104, 1, 28, "Subsubtitle"],
Cell[17749, 494, 347, 9, 52, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18133, 508, 293, 4, 28, "Subsubtitle"],
Cell[18429, 514, 764, 16, 47, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[19242, 536, 139, 1, 49, "Subtitle"],
Cell[19384, 539, 175, 2, 28, "Subsubtitle"],
Cell[19562, 543, 442, 15, 31, "Input"],
Cell[20007, 560, 1602, 47, 56, "Input"],
Cell[21612, 609, 2201, 51, 212, "Input"],
Cell[CellGroupData[{
Cell[23838, 664, 57, 0, 28, "Subsubtitle"],
Cell[23898, 666, 1384, 45, 76, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25319, 716, 97, 1, 28, "Subsubtitle"],
Cell[25419, 719, 1254, 33, 99, "Input"],
Cell[26676, 754, 1184, 32, 99, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27897, 791, 115, 1, 28, "Subsubtitle"],
Cell[28015, 794, 2134, 54, 275, "Input"],
Cell[30152, 850, 2166, 55, 275, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[32367, 911, 89, 1, 49, "Subtitle"],
Cell[32459, 914, 816, 19, 74, "Input"],
Cell[CellGroupData[{
Cell[33300, 937, 280, 7, 53, "Input"],
Cell[33583, 946, 185, 2, 30, "Output"]
}, Open  ]],
Cell[33783, 951, 222, 7, 50, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34042, 963, 73, 1, 49, "Subtitle"],
Cell[34118, 966, 39, 0, 28, "Subsubtitle"],
Cell[34160, 968, 754, 15, 52, "Input"],
Cell[CellGroupData[{
Cell[34939, 987, 102, 1, 28, "Subsubtitle"],
Cell[CellGroupData[{
Cell[35066, 992, 1491, 24, 52, "Input"],
Cell[36560, 1018, 175, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36772, 1025, 206, 5, 47, "Input"],
Cell[36981, 1032, 180, 2, 30, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[37210, 1040, 90, 1, 28, "Subsubtitle"],
Cell[37303, 1043, 558, 16, 87, "Input"],
Cell[37864, 1061, 833, 25, 87, "Input"],
Cell[CellGroupData[{
Cell[38722, 1090, 1267, 27, 31, "Input"],
Cell[39992, 1119, 433, 8, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[40462, 1132, 1321, 28, 31, "Input"],
Cell[41786, 1162, 348, 7, 30, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[42183, 1175, 102, 1, 28, "Subsubtitle"],
Cell[42288, 1178, 357, 10, 31, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[42694, 1194, 112, 1, 49, "Subtitle"],
Cell[42809, 1197, 8972, 231, 330, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[51818, 1433, 185, 3, 49, "Subtitle"],
Cell[52006, 1438, 1243, 28, 152, "Input"],
Cell[CellGroupData[{
Cell[53274, 1470, 2265, 57, 192, "Input"],
Cell[55542, 1529, 327, 7, 23, "Print"],
Cell[55872, 1538, 5117, 88, 242, "Output"]
}, Open  ]],
Cell[61004, 1629, 528, 15, 31, "Input"],
Cell[61535, 1646, 434, 8, 31, "Input"],
Cell[CellGroupData[{
Cell[61994, 1658, 375, 7, 52, "Input"],
Cell[62372, 1667, 218, 3, 30, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
